home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / screen.ps < prev    next >
Text File  |  1996-01-10  |  1KB  |  59 lines
  1. % Test a tilted halftone screen.
  2.  
  3. /dot0
  4.     % The following screen algorithm is used by permission of the author.
  5.     { 1 add 180 mul cos 1 0.08 add mul exch 2 add 180 mul cos 
  6.       1 0.08 sub mul add 2 div % (C) 1989 Berthold K.P. Horn
  7.     } bind def
  8.  
  9. /dot1
  10.  { dup mul exch dup mul add 1 exch sub
  11.  } bind def
  12.  
  13. /dot2
  14.  { exch abs exch abs   2 copy le { exch } if
  15.    exch 1 sub dup mul exch dup mul add 1 exch sub
  16.  } bind def
  17.  
  18. 72 72 scale
  19. 0 setlinewidth
  20.  
  21. /tiles {
  22. 0 1 7
  23.  { /y exch def
  24.    0 1 7
  25.     { /x exch def
  26.       x y moveto
  27.       1 0 rlineto 0 1 rlineto -1 0 rlineto closepath
  28.       gsave y 8 mul x add 63 div setgray fill grestore
  29.       0 setgray stroke
  30.     } for
  31.   } for
  32. } bind def
  33.  
  34. gsave
  35. 2.3 -22 /dot0 load setscreen
  36. currentscreen pop == pop
  37. tiles showpage
  38. grestore
  39.  
  40. gsave
  41. 2.3 22 /dot1 load setscreen
  42. currentscreen pop == pop
  43. tiles showpage
  44. grestore
  45.  
  46. gsave
  47. 2.3 45 /dot1 load setscreen
  48. currentscreen pop == pop
  49. tiles showpage
  50. grestore
  51.  
  52. gsave
  53. 2.3 45 /dot2 load setscreen
  54. currentscreen pop == pop
  55. tiles showpage
  56. grestore
  57.  
  58. quit
  59.